home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / dev / Language / ace / Prgs / io / seq.b < prev   
Text File  |  1994-01-10  |  574b  |  46 lines
  1. { A test of sequential file commands & functions:
  2.  
  3.     WRITE#
  4.     PRINT#
  5.     INPUT#
  6.     LINE INPUT#
  7.     EOF
  8. }
  9.  
  10. '..some data
  11. x$="test"
  12. a=12.241
  13. qq=-2221
  14. b%=-32
  15. c&=665533
  16.  
  17. '...write to file
  18. open "O",1,"ram:test"
  19.   write #1,x$,a,b%,c&
  20.   write #1,qq
  21. close 1
  22.  
  23. '...read from file
  24. open "I",#2,"ram:test"
  25.  input #2,x$,a,b%,c&,qq
  26.  print x$;a;b%;c&;qq
  27. close #2
  28.  
  29. for i=1 to 3
  30.   print
  31.   '..append to file
  32.   open "A",3,"ram:test"
  33.     print #3,"HELLO"
  34.   close #3
  35.  
  36.   '..show modified file
  37.   open "I",4,"ram:test"
  38.   while not eof(4)
  39.    line input #4,x$
  40.    print x$
  41.   wend
  42.   close #4
  43. next
  44.  
  45. KILL "ram:test"
  46.